home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / MTL.LSP < prev    next >
Text File  |  1992-09-13  |  277b  |  10 lines
  1. ;move objects to a new layer
  2. ;
  3. ;
  4. (princ "\nSelect objects to move to another Layer.")
  5. (setq ss (ssget))
  6. (SETQ UL1(GETSTRING "\nLayer to move entities to : "))
  7. (setq counter 0)
  8. (prompt "Moving to layer.....")(princ ul1)
  9. (command "CHANGE" ss "" "P" "LA" UL1 "")
  10. (princ)